(lock_file): Do nothing if purifying.

diff --git a/src/filelock.c b/src/filelock.c
index b671533161f9cacebee310ae325738308cb9e218..dcf3c658ce004fa3933b0afaf999575598cef34d 100644 (file)
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -545,6 +545,12 @@ lock_file (fn)
   register char *lfname, *locker;
   lock_info_type lock_info;
 
+  /* Don't do locking while dumping Emacs.
+     Uncompressing wtmp files uses call-process, which does not work
+     in an uninitialized Emacs.  */
+  if (! NILP (Vpurify_flag))
+    return;
+
   orig_fn = fn;
   fn = Fexpand_file_name (fn, Qnil);
   encoded_fn = ENCODE_FILE (fn);